Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/forms/vbresize/form1.frm

Text File | 1995-05-21 | 11KB | 347 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   Caption         =   "ReSize Sample Application"
   ClientHeight    =   4452
   ClientLeft      =   1140
   ClientTop       =   1584
   ClientWidth     =   6408
   Height          =   4872
   Icon            =   FORM1.FRX:0000
   Left            =   1092
   LinkTopic       =   "Form1"
   ScaleHeight     =   4452
   ScaleWidth      =   6408
   Top             =   1212
   Width           =   6504
   Begin CommandButton Command5
      Caption         =   "Line Demo"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   2280
      TabIndex        =   18
      Top             =   3840
      Width           =   1812
   End
   Begin CommandButton Command4
      Caption         =   "Move things around"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   4320
      TabIndex        =   17
      Top             =   3840
      Width           =   1812
   End
   Begin CommandButton Command3
      Caption         =   "Change Fonts"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   240
      TabIndex        =   16
      Top             =   3840
      Width           =   1812
   End
   Begin CommandButton Command2
      Caption         =   "Help"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   4800
      TabIndex        =   15
      Top             =   720
      Width           =   1332
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Misc. Info"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   972
      Left            =   960
      TabIndex        =   14
      Top             =   2280
      Width           =   4452
      Begin CheckBox Check1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Current Client?"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   7.8
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   252
         Left            =   240
         TabIndex        =   5
         Top             =   360
         Width           =   1572
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Male"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   7.8
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   252
         Left            =   2520
         TabIndex        =   6
         Top             =   360
         Width           =   1212
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Female"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   7.8
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   252
         Left            =   2520
         TabIndex        =   7
         Top             =   600
         Width           =   1332
      End
   End
   Begin ReSize ReSize1
      Left            =   120
      Top             =   2760
   End
   Begin CommandButton Command1
      Caption         =   "Exit"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   4800
      TabIndex        =   8
      Top             =   240
      Width           =   1332
   End
   Begin TextBox Text5
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   5040
      TabIndex        =   4
      Top             =   1440
      Width           =   732
   End
   Begin TextBox Text4
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   3960
      TabIndex        =   3
      Top             =   1440
      Width           =   372
   End
   Begin TextBox Text3
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   1320
      TabIndex        =   2
      Top             =   1440
      Width           =   1812
   End
   Begin TextBox Text2
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   1320
      TabIndex        =   1
      Top             =   960
      Width           =   2772
   End
   Begin TextBox Text1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   1320
      TabIndex        =   0
      Top             =   480
      Width           =   2772
   End
   Begin Line Line1
      BorderWidth     =   4
      X1              =   360
      X2              =   6000
      Y1              =   3600
      Y2              =   3600
   End
   Begin Label Label5
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Zip:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   4320
      TabIndex        =   9
      Top             =   1440
      Width           =   612
   End
   Begin Label Label4
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "State:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   3120
      TabIndex        =   10
      Top             =   1440
      Width           =   732
   End
   Begin Label Label3
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "City:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   480
      TabIndex        =   11
      Top             =   1440
      Width           =   732
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Address:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   360
      TabIndex        =   12
      Top             =   960
      Width           =   852
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Name:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   600
      TabIndex        =   13
      Top             =   480
      Width           =   612
   End
End

Option Explicit

Sub Command1_Click ()
    End
End Sub

Sub Command2_Click ()
    Form2.Show 1
End Sub

Sub Command3_Click ()
    If Label1.FontName = "Arial" Then
        Label1.FontName = "Times New Roman"
        Label2.FontName = "Times New Roman"
        Label3.FontName = "Times New Roman"
        Label4.FontName = "Times New Roman"
        Label5.FontName = "Times New Roman"
    Else
        Label1.FontName = "Arial"
        Label2.FontName = "Arial"
        Label3.FontName = "Arial"
        Label4.FontName = "Arial"
        Label5.FontName = "Arial"
    End If
End Sub

Sub Command4_Click ()
    Dim Temp As Integer
    Option2.Left = Check1.Left
    Temp = Check1.Left
    Check1.Left = Option1.Left
    Option1.Left = Temp
End Sub

Sub Command5_Click ()
    Form3.Show 1
End Sub